home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
massmail.zip
/
MASSMAIL.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-06-05
|
4KB
|
258 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 3792 bytes 03/09/122 08:19:16am
'! Code Segment Size :2657 bytes
'! Data Segment Size :5992 bytes
'! String Segment Size:1135 bytes
'! Compiled with WCC version 4.12
Type Type26
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 98) As Byte
s174 As String*70
End Type
Dim l4463 As Long
Dim l4467 As Long
Dim i4471 As Integer
Dim s4473 As String*30
Dim l4503 As Long
Dim s4507 As String*7
Dim l4514 As Long
Dim s4518 As String*25
Dim l4543 As Long
Dim l4547 As Long
Dim i4551 As Integer
Dim mh4553 As MessageHeader
Dim s4873 As String
Dim s5118(0 To 20) As String*10
Dim i5328 As Integer
Dim i5330 As Integer
Dim i5332 As Integer
Dim i5334 As Integer
Dim s5336 As String
Dim ur5340 As UserRecord
Dim i5990 As Integer
Dim l65500_ As Long
Dim i65504_ As Integer
Dim l65506_ As Long
Dim i65510_ As Integer
Dim l65512_ As Long
Dim i65516_ As Integer
Dim l65518_ As Long
Dim i65522_ As Integer
Dim l65524_ As Long
Dim i65528_ As Integer
Dim l65530_ As Long
Dim i65534_ As Integer
l4467 = 8985
If Exists(ProgPath + "MassMail.key") Then
Open ProgPath + "MassMail.key" For Input As 1
Input #1, l4463
Close 1
Else
111 l4463 = 0
GoTo 123
End If
123 s4473 = UCase(MakeWild.BBSName)
s4473 = Trim(s4473)
l4503 = 0
191 For i4471 = 1 To Len(s4473) Step 1
l4503 = l4503 + Asc(Mid(s4473, i4471, 1))
Next
295 s4507 = UCase(MakeWild.RegString)
s4507 = Trim(s4507)
l4514 = 0
364 For i4471 = 1 To Len(s4507) Step 1
l4514 = l4514 + Asc(Mid(s4507, i4471, 1))
Next
468 s4518 = UCase(MakeWild.SysopName)
s4518 = Trim(s4518)
l4543 = 0
536 For i4471 = 1 To Len(s4518) Step 1
l4543 = l4543 + Asc(Mid(s4518, i4471, 1))
Next
640 l4547 = l4503 + l4514 + l4543
l4547 = l4547 * 7
l4547 = l4547 * l4467
l4547 = l4547 + l4467
If l4547 = l4463 Then
i4551 = - 1
Else
745 i4551 = 0
End If
751 i5330 = 0
If Exists(ProgPath + "massmail.cfg") Then
Open ProgPath + "massmail.cfg" For Input As 1
Input #1, i5328
809 Do While Not EOF(1)
i5330 = i5330 + 1
Input #1, s5118(i5330)
Loop
875 Else
881 i5328 = 0
End If
887 Close 1
Do
892 Cls
Locate 1, 34
Print "@01@╔══════════╗"
Locate 2, 34
Print "@01@║ @0F@MassMail @01@║"
Locate 3, 34
Print "@01@╚══════════╝"
Locate 5, 28
Print "@0B@Written by: Dean Brooks"
Locate 9, 32
Print "@0E@Mail message to:"
Locate 16, 33
Print "@09@Copyright 1996"
Locate 18, 28
Print "@09@Hidden Paradise Software"
Locate 20, 23
Print "@09@Hidden Paradise BBS (716)-345-9800"
Locate 11, 17
s4873 = InputMask("@02@[@0F@A@02@]@0B@ll users / @02@[@0F@S@02@]@0B@ecurity Profile / @02@[@0F@Q@02@]@0B@uit: @0E@", "X", "", 1213417543)
s4873 = UCase(s4873)
If s4873 = "A" Then
GoTo 1588
End If
1091 If s4873 = "S" Then
GoTo 1172
End If
1114 If s4873 = "Q" Then
GoTo 2045
End If
1137 Cls
Locate 12, 29
Print "@BELL@@8C@NOT A VALID SELECTION@0E@"
Locate 20, 1
WaitEnter
Loop
1172 Cls
Locate 1, 1
Print "@0E@Which Security Profile would you like?"
Print
1217 For i5332 = 1 To i5330 Step 1
Print "@02@[@0F@"; i5332; "@02@] @0B@"; s5118(i5332)
Next
1345 Print
Print "Select from 1 to "; i5330; " (0 to quit):";
i5334 = InputNumber(" ", 0, i5330)
If i5334 = 0 Then
Else
1409 If Exists(ProgPath + "massmail.usr") Then
Del ProgPath + "massmail.usr"
End If
1441 Open ProgPath + "massmail.usr" For Append As 2
s5336 = ""
GetUser(ur5340, s5336)
Do
1486 If UCase(ur5340.SecLevel) = UCase(s5118(i5334)) Then
Print #2, UCase(ur5340.Name)
End If
1558 Loop Until Not GetNextUser(ur5340, 1213417543)
Close 2
GoTo 1713
1588 If Exists(ProgPath + "massmail.usr") Then
Del ProgPath + "massmail.usr"
End If
1620 Open ProgPath + "massmail.usr" For Append As 2
s5336 = ""
GetUser(ur5340, s5336)
Do
1665 Print #2, UCase(ur5340.Name)
Loop Until Not GetNextUser(ur5340, 1213417543)
Close 2
GoTo 1713
1713 mh4553.From = MakeWild.SysopName
Cls
Locate 10, 1
mh4553.Subject = InputMask("Subject (Enter to quit): ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
If mh4553.Subject = "" Then
Else
1805 If Exists(ProgPath + "massmail.msg") Then
Del ProgPath + "massmail.msg"
End If
1837 EditMessage(mh4553, ProgPath + "massmail.msg", 1213417543)
If Exists(ProgPath + "massmail.msg") Then
GoTo 1896
Else
1890 GoTo 2045
End If
1896 If Exists(ProgPath + "massmail.usr") Then
Open ProgPath + "massmail.usr" For Input As 3
1940 Do While Not EOF(3)
Input #3, mh4553.To
AddMessage(mh4553, ProgPath + "massmail.msg", "", i5328)
Loop
1999 Close 3
Else
2010 GoTo 2045
End If
2016 Cls
Locate 10, 27
Print "@BELL@@8B@<<<< Message Written >>>>@0E@"
Locate 20, 1
WaitEnter
End If
End If
2045 If Exists(ProgPath + "massmail.msg") Then
Del ProgPath + "massmail.msg"
End If
2077 If Exists(ProgPath + "massmail.usr") Then
Del ProgPath + "massmail.usr"
End If
2109 Cls
Locate 6, 25
Print "@0F@Thank you for using MassMail!"
Locate 8, 28
Print "@0A@Written by: Dean Brooks"
Locate 10, 28
Print "@09@Hidden Paradise Software"
Locate 12, 18
Print "@0E@Support: Hidden Paradise BBS @ 716-345-9800"
If i4551 = 0 Then
Print "@NOPAUSE@"
Locate 18, 17
Print "@0F@This delay will be removed when you register!"
Color 3, 0
Locate 15, 29
Print "["
Color 3, 0
Locate 15, 51
Print "]"
Color 11, 0
Locate 15, 40
Print Chr(254)
2302 For i5990 = 1 To 10 Step 1
Color 11, 0
Locate 15, 40 - i5990
Print Chr(254)
Locate 15, 40 + i5990
Print Chr(254)
Delay 0.5
Next
2435
2458 For i5990 = 10 To 1 Step - 1
Color 11, 0
Locate 15, 40 - i5990
Print " "
Locate 15, 40 + i5990
Print " "
Delay 0.25
Next
2591 Locate 15, 40
Print " "
Reset
End
Else
2617 Locate 15, 26
Print "@1E@ Thank You for REGISTERING! @0F@"
Delay 2
Reset
End If
2644 End